function [time] = make_time(DFILE)
if(DFILE.mode > 2)
   nrec=length(DFILE.record);
else
   nrec = DFILE.lrec - DFILE.frec + 1;
end;

npts=DFILE.nr_points;
time=zeros(nrec,npts);
for i=1:nrec
   if(length(DFILE.nr_channel) > 1)
      j = i;
   else
      j = 1;
   end;
   p=(DFILE.rate(i)*DFILE.nr_channel(j)/1000);
	time(i,:)=[0:p:(npts-1)*p];
end;
return

